home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 1999 August / MaxiMac 93.iso / charm / PRG.DXR / 00004_Debut.ls < prev    next >
Encoding:
Text File  |  1999-04-20  |  2.2 KB  |  71 lines
  1. global GmaxiHelp, GmaxiCharme, GnbImageCharme, GnbPageCharme, GcptPageCharme, Ginitcharme, Gbonus, Gverif, code, descriptif, cle, crypter, Gmaxihard, GnbImageHard, GnbPageHard, GcptPageHard, GinitHard
  2.  
  3. on enterFrame
  4.   set Gbonus to 0
  5.   set Gverif to 0
  6.   set Ginitcharme to 1
  7.   set the text of member "Oui_Non" to EMPTY
  8.   set the text of member "textehelp" to the text of member "help1"
  9.   set GmaxiHelp to 4
  10.   set GmaxiCharme to 12
  11.   set Gmaxihard to 6
  12.   set GcptPageCharme to 0
  13.   startTimer()
  14.   set x to 2
  15.   repeat while x < 70
  16.     set the visible of sprite x to 0
  17.     set x to x + 1
  18.   end repeat
  19.   set the visible of sprite 1 to 1
  20.   set the visible of sprite 2 to 1
  21.   set the visible of sprite 3 to 1
  22.   set the visible of sprite 5 to 1
  23.   set the visible of sprite 6 to 1
  24.   set the foreColor of member "listecode" to 255
  25.   set the foreColor of member "explication" to 255
  26.   set the foreColor of member "compteurcharme" to 255
  27.   set GnbImageCharme to the number of castMembers of castLib "charme"
  28.   set x to GnbImageCharme mod GmaxiCharme
  29.   if x <> 0 then
  30.     set x to 1
  31.   end if
  32.   set GnbPageCharme to (GnbImageCharme / GmaxiCharme) + x
  33.   set crypter to []
  34.   set nb to the lineCount of member "fichierdescodes"
  35.   set Texte to the text of member "fichierdescodes"
  36.   set x to 1
  37.   set code to []
  38.   set descriptif to []
  39.   set cle to []
  40.   set sauve to the itemDelimiter
  41.   set the itemDelimiter to ";"
  42.   repeat while x < (nb + 1)
  43.     set texteligne to line x of Texte
  44.     add(code, item 1 of texteligne)
  45.     add(descriptif, item 2 of texteligne)
  46.     add(cle, item 3 of texteligne)
  47.     add(crypter, 0)
  48.     set x to x + 1
  49.   end repeat
  50.   set the itemDelimiter to sauve
  51.   set nb to count(code)
  52.   set Texte to EMPTY
  53.   set x to 1
  54.   repeat while x < (nb + 1)
  55.     set Texte to Texte & getAt(code, x)
  56.     set Texte to Texte & RETURN
  57.     set x to x + 1
  58.   end repeat
  59.   set the text of member "listecode" to Texte
  60.   set the foreColor of member "listecode" to 0
  61.   set Texte to "Liste des codes " & RETURN
  62.   set nb to count(code)
  63.   set x to 1
  64.   repeat while x < (nb + 1)
  65.     set Texte to Texte & getAt(code, x) & " = " & RETURN
  66.     set x to x + 1
  67.   end repeat
  68.   set the text of member "liste_a_imprimer" to Texte
  69.   play frame "charme"
  70. end
  71.